home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesobjc2.s < prev    next >
Text File  |  1990-11-23  |  2KB  |  62 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.         .include        "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Object Library routines 2 of 2.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; objc_offset
  18. ;-------------------------------------------------------------------------
  19.  
  20. _objc_offset::
  21.           .cargs    #8,.ptree.l,.obj,.px.l,.py.l
  22.  
  23.           link      a6,#-6              ; allocate intout[3].
  24.           
  25.           AControl  44,1,3,1
  26.           
  27.           moveq.l   #-6,d2              ;  = intout
  28.           lea       .obj(a6),a1         ; -> intin
  29.           lea       .ptree(a6),a0       ; -> addrin
  30.  
  31.           ACall     RET2HERE
  32.  
  33.           moveq.l   #-6,d1
  34.           lea       .px(a6),a1
  35.           jmp       (a0)
  36.  
  37. ;-------------------------------------------------------------------------
  38. ; objc_edit
  39. ;-------------------------------------------------------------------------
  40.  
  41. _objc_edit::
  42.           .cargs    #8,.ptree.l,.obj,.char,.idx,.kind,.pnewidx.l
  43.  
  44.           link      a6,#-4              ; allocate intout[2].
  45.  
  46.           AControl  46,4,2,1
  47.           
  48.           moveq.l   #-4,d2              ; -> intout
  49.           lea       .obj(a6),a1         ; -> intin
  50.           lea       .ptree(a6),a0       ; -> addrin
  51.  
  52.           ACall     RET2HERE
  53.  
  54.           move.w    -4(a6),d0
  55.           move.l    .pnewidx(a6),a1
  56.           move.w    -2(a6),(a1)
  57.           unlk      a6
  58.           rts
  59.  
  60. ;         end of code
  61.  
  62.